(jka-compr-insert-file-contents): Handle 5th arg.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 1519e056c21cbb69372723342a0c621bc62af83f..ffc7156eff80a39da7e0087196acafb78007396e 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -465,7 +465,7 @@ There should be no more than seven characters after the final '/'")
        (write-region start end filename append visit))))
 
 
-(defun jka-compr-insert-file-contents (file &optional visit beg end)
+(defun jka-compr-insert-file-contents (file &optional visit beg end replace)
   "Documented as original."
 
   (barf-if-buffer-read-only)
@@ -560,7 +560,7 @@ There should be no more than seven characters after the final '/'")
 
          (list filename size))
 
-      (insert-file-contents file visit beg end))))
+      (insert-file-contents file visit beg end replace))))
 
 
 (defun jka-compr-file-local-copy (file)